home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / qbware.exe / INCHAR.BAS (.txt) < prev    next >
Encoding:
QuickBASIC Tokenized Source  |  1990-11-30  |  3.1 KB  |  103 lines
  1. NMALLOC
  2. BiosMisc
  3. BiosMisc.Msg
  4. A0600,
  5. A0600.BarMenu1
  6. Answer
  7.     WinHandle
  8. Frame
  9. Grown
  10. Shade
  11. BsEqpmt
  12. BsPInit
  13. BsPStat
  14. BsPrint
  15. BsPrtSc5
  16. A0601G
  17. A0601.BarMenu1
  18. A10203
  19. A1020.PopWindow
  20. RomDate
  21. ExtRAM9
  22. ExpRAMh
  23. PrintersZ
  24. RS232
  25. Floppies
  26. GamePort
  27. Disks
  28. BsEqpmt.Txt
  29. A0551
  30. A0551.LoadText
  31. Text]
  32. A0550
  33. A0550.PopFText.Cstm~
  34. MenuText=
  35. Location
  36. TColors(
  37. TLength
  38. TblDatak
  39. TblSlct
  40. SText
  41.     StackSize
  42. WinStack
  43. WinFrame
  44. A1000
  45. A1000.Window.Hskp
  46. Putline
  47. MaxWin
  48. ExitKeys/
  49. TabLenH
  50. InitWin
  51. WinPoint
  52. A1010
  53. A1010.Prep.Window
  54. CngWinr
  55. PushWin
  56. Putwind
  57. PopWin
  58. PopFTexts
  59. Countg
  60. InpWin
  61. Input
  62. Input.Char
  63. A1010.PopWindow
  64. BsKGet
  65. BsKGet.Msg
  66. A0500
  67. A0500.PutText
  68. A0510
  69. A0510.LoadTextH
  70. A0500.PutTextCstm
  71. PopText
  72. Win.Handle
  73. Message
  74. Message.Txt
  75. InitialValue
  76. ExitList
  77. ExtendName
  78. InChar
  79.     InputText
  80. LastChar
  81.    InText.Bas 
  82. Copyright (c) 1988 Marcel Madonna*
  83. InText.BAS shows the use of a simple input windoww
  84.   with QBWARE.
  85.  Dim arrays for QB Syntax check only - we REDIM them later
  86.  Set up housekeeping for window drivers
  87. Assume you will see no flicker
  88. Change this value to 0 if the screen
  89. flickers
  90. Window stack - we keep screen images
  91. and other info heres
  92. Define maximum number of windows as 20
  93. we keep specific window data herem
  94.  Set up window parameters
  95. Sample Text Entry Window
  96.  Set up entry parameters
  97. UUUUUUUUUUUULLLXXXXXXXXXX888888889999999999"
  98.  The next two statements just remove the window from the screen and wait for
  99.  more input - they have been commented out.
  100. GOSUB A1020.PopWindow(
  101. CALL InpWin(WinStack%(), Input.Char$, 0)
  102. You entered 
  103.